home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML Construction Kit / Dynamic HTML Construction Kit.iso / source_code / dhtmlunl / dhtml.exe / CD Content / Chap18 / dun18_2.txt < prev    next >
Encoding:
Text File  |  1997-12-18  |  5.2 KB  |  140 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  2.  
  3. <html><head>
  4.  
  5. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  6.  
  7. <title>Baseball Cards</title></head>
  8.  
  9. <body bgcolor="#FFFFFF">
  10.  
  11. <p>
  12.  
  13. <object id="cards" ondatasetcomplete="dataloaded()"
  14.  
  15. classid="CLSID:333C7BC4-460F-11D0-BC04-0080C7055A83" width="192" height="192">
  16.  
  17.   <param name="DataURL" value="cards.txt">
  18.  
  19.   <param name="UseHeader" value="1">
  20.  
  21.   <param name="Sort" value="year; cardnumber">
  22.  
  23. </object>
  24.  
  25. </p>
  26.  
  27.  
  28.  
  29. <H3>To sort by any column, click the column's header.</H3>
  30.  
  31.  
  32.  
  33. <table border="1" datasrc="#cards" align="center" cellpadding="2">
  34.  
  35. <THEAD>
  36.  
  37.   <tr>
  38.  
  39.     <td align="left" id="year" onclick="tableclick('year')"
  40.  
  41.         bgcolor="#00FFFF"><big>+Year</big></td>
  42.  
  43.     <td align="left" id="CardNumber" onclick="tableclick('cardnumber')"
  44.  
  45.         bgcolor="#00FFFF"><big>+Number</big></td>
  46.  
  47.     <td align="left" id="setname" onclick="tableclick('setname')"
  48.  
  49.         bgcolor="#00FFFF"><big>Set Name</big></td>
  50.  
  51.     <td align="left" id="issuer" onclick="tableclick('issuer')"
  52.  
  53.         bgcolor="#00FFFF"><big>Issuer</big></td>
  54.  
  55.     <td align="left" id="description" onclick="tableclick('description')"
  56.  
  57.         bgcolor="#00FFFF"><big>Description</big></td>
  58.  
  59.     <td align="left" id="grade" onclick="tableclick('grade')"
  60.  
  61.         bgcolor="#00FFFF"><big>Grade</big></td>
  62.  
  63.     <td align="right" id="value" onclick="tableclick('value')"
  64.  
  65.         bgcolor="#00FFFF"><big>Value</big></td>
  66.  
  67.   </tr>
  68.  
  69. </THEAD>
  70.  
  71.   <tr>
  72.  
  73.     <td><div datafld="year"></div></td>
  74.  
  75.     <td><div datafld="cardnumber"></div></td>
  76.  
  77.     <td><div datafld="setname"></div></td>
  78.  
  79.     <td><div datafld="issuer"></div></td>
  80.  
  81.     <td><div datafld="description"></div></td>
  82.  
  83.     <td><div datafld="grade"></div></td>
  84.  
  85.     <td width="50" align="right"><div datafld="value"></div></td>
  86.  
  87.   </tr>
  88.  
  89. <TFOOT>
  90.  
  91.   <tr>
  92.  
  93.     <td colspan="6" align="right" height="40" bgcolor="#000080">
  94.  
  95.     <font color="#FF0000" size="4"><strong>Total:</strong></font></td>
  96.  
  97.     <td valign="center" align="right" bgcolor="#000080">
  98.  
  99.     <font color="#FF0000" size="4">
  100.  
  101.     <strong><div id="TotalText"></div></strong></font></td>
  102.  
  103.   </tr>
  104.  
  105. </TFOOT>
  106.  
  107. </table>
  108.  
  109.  
  110.  
  111. <p>
  112.  
  113. <script language="VBScript"><!--
  114.  
  115.  
  116.  
  117. sub tableclick(columnname)
  118.  
  119.  
  120.  
  121. if columnname <> "year" and (left(document.all.item("year").innertext,1)
  122.  
  123. cc]     = "+"
  124.  
  125. cc]   or left(document.all.item("year").innertext,1) = "-") then
  126.  
  127.       document.all.item("year").innerHTML = "<big>" +
  128.  
  129. cc]         mid(document.all.item("year").innertext,2) + "</big>"
  130.  
  131. end if
  132.  
  133.  
  134.  
  135. if columnname <> "cardnumber" and
  136.  
  137. cc]   (left(document.all.item("cardnumber").innertext,1) = "+" or
  138.  
  139. cc]   left(document.all.item("cardnumber").innertext,1) = "-") then
  140.  
  141.       document.all.item("cardnumber").innerHTML = "<big>" +
  142.  
  143. cc]          mid(document.all.item("cardnumber").innertext,2) + "</big>"
  144.  
  145. end if
  146.  
  147.  
  148.  
  149. if columnname <> "setname" and
  150.  
  151. cc]  (left(document.all.item("setname").innertext,1) = "+" or
  152.  
  153. cc]  left(document.all.item("setname").innertext,1) = "-") then
  154.  
  155.     document.all.item("setname").innerHTML = "<big>" +
  156.  
  157. cc]        mid(document.all.item("setname").innertext,2) + "</big>"
  158.  
  159. end if
  160.  
  161.  
  162.  
  163. if columnname <> "issuer" and
  164.  
  165. cc]  (left(document.all.item("issuer").innertext,1) = "+" or
  166.  
  167. cc]   left(document.all.item("issuer").innertext,1) = "-") then
  168.  
  169.      document.all.item("issuer").innerHTML = "<big>" +
  170.  
  171. cc]       mid(document.all.item("issuer").innertext,2) + "</big>"
  172.  
  173. end if
  174.  
  175.  
  176.  
  177. if columnname <> "description" and
  178.  
  179. cc]  (left(document.all.item("description").innertext,1) = "+" or
  180.  
  181. cc]   left(document.all.item("description").innertext,1) = "-") then
  182.  
  183.      document.all.item("description").innerHTML = "<big>" +
  184.  
  185. cc]       mid(document.all.item("description").innertext,2) + "</big>"
  186.  
  187. end if
  188.  
  189.  
  190.  
  191. if columnname <> "grade" and
  192.  
  193. cc]  (left(document.all.item("grade").innertext,1) = "+" or
  194.  
  195. cc]   left(document.all.item("grade").innertext,1) = "-") then
  196.  
  197.      document.all.item("grade").innerHTML = "<big>" +
  198.  
  199. cc]       mid(document.all.item("grade").innertext,2) + "</big>"
  200.  
  201. end if
  202.  
  203.  
  204.  
  205. if columnname <> "value" and
  206.  
  207. cc]  (left(document.all.item("value").innertext,1) = "+" or
  208.  
  209. cc]   left(document.all.item("value").innertext,1) = "-") then
  210.  
  211.      document.all.item("value").innerHTML = "<big>" +
  212.  
  213. cc]       mid(document.all.item("value").innertext,2) + "</big>"
  214.  
  215. end if
  216.  
  217.  
  218.  
  219. if left(document.all.item(columnname).innertext,1) = "+" then
  220.  
  221.    document.all.item(columnname).innerHTML =  "<big>-" +
  222.  
  223. cc]     mid(document.all.item(columnname).innertext,2) + "</big>"
  224.  
  225.    cards.sort = "-" + columnname
  226.  
  227. elseif left(document.all.item(columnname).innertext,1) = "-" then
  228.  
  229.    document.all.item(columnname).innerHTML = "<big>+" +
  230.  
  231. cc]     mid(document.all.item(columnname).innertext,2) + "</big>"
  232.  
  233.    cards.sort = columnname
  234.  
  235. else
  236.  
  237.    document.all.item(columnname).innerHTML = "<big>+" +
  238.  
  239. cc]     document.all.item(columnname).innertext + "</big>"
  240.  
  241.    cards.sort = columnname
  242.  
  243. end if
  244.  
  245.  
  246.  
  247. cards.reset
  248.  
  249.  
  250.  
  251. end sub
  252.  
  253.  
  254.  
  255. sub dataloaded()
  256.  
  257.  
  258.  
  259. while not(cards.recordset.eof)
  260.  
  261.    total = total + cards.recordset("value")
  262.  
  263.    cards.recordset.movenext
  264.  
  265. wend
  266.  
  267. document.all.totaltext.innertext =  total
  268.  
  269.  
  270.  
  271. end sub
  272.  
  273.  
  274.  
  275. --></script> </p>
  276.  
  277. </body></html>
  278.  
  279.